###########################################

$LINE1 = "ftp -nv scnt-ftp1 <<EOF";
$LINE2 = "user "scwf\svcces" C3sGr0uP!";
$LINE3 = "bin ";
$LINE4 = "get CES_STORAGE/".$input{'CDNBR'}."/"..$input{'KEY1'}." REPORTS/".$input{'KEY1'};
$LINE5 = " ";
$LINE6 = "quit ";
$LINE7 = "EOF ";

open(OUTPUT1, ">batch_ftp");

printf (OUTPUT1 "%s \n",$LINE1);
printf (OUTPUT1 "%s \n",$LINE2);
printf (OUTPUT1 "%s \n",$LINE3);
printf (OUTPUT1 "%s \n",$LINE4);
printf (OUTPUT1 "%s \n",$LINE5);
printf (OUTPUT1 "%s \n",$LINE6);
printf (OUTPUT1 "%s \n",$LINE7);

close(OUTPUT1);


#print "\n <PRE>FTP:",$_;
#open(INPUT1, "<batch_ftp");
#  while (<INPUT1>) {
#     chop;
#    print "\n :",$_;
#     }
#
#close(INPUT1);

$code = `batch_ftp`;

open(OUTPUT2, ">../FTP/batch_ftp");

printf (OUTPUT2 "%s \n","DELETED");

close(OUTPUT2);

$code = `chmod 777 REPORTS/$input{'KEY1'}`;

exit;

###########################################
